Private: Geographic/Private: Geographic.iso/HELP.DXR/00003.ls

Text File | 1998-03-23 | 2.4 KB | 66 lines

property ImageUp, ImageRoll, ImageDown, Sonidodown, SonidoUp, Clicked

on mouseEnter me
  if the Clicked of me then
    if the mouseDown then
      set the member of sprite the spriteNum of me to the ImageDown of me
    else
      set the member of sprite the spriteNum of me to the ImageRoll of me
    end if
  else
    set the member of sprite the spriteNum of me to the ImageRoll of me
  end if
  cursor(280)
end

on mouseDown me
  set the member of sprite the spriteNum of me to the ImageDown of me
  puppetSound("Down")
  set the Clicked of me to 1
  pass()
end

on mouseLeave me
  set the member of sprite the spriteNum of me to the ImageUp of me
  cursor(-1)
end

on mouseUp me
  set the member of sprite the spriteNum of me to the ImageRoll of me
  puppetSound("Up")
  updateStage()
  if the Clicked of me then
    set the Clicked of me to 0
    pass()
  end if
end

on mouseUpOutSide me
  set the member of sprite the spriteNum of me to the ImageUp of me
  set the Clicked of me to 0
end

on beginSprite me
  set the Clicked of me to 0
end

on getPropertyDescriptionList
  if the currentSpriteNum = 0 then
    set memdefault1 to 0
  else
    set memref to the member of sprite the currentSpriteNum
    set castLibNum to the castLibNum of memref
    set memdefault0 to member the memberNum of member memref of castLib castLibNum
    set memdefault1 to member (the memberNum of member memref + 1) of castLib castLibNum
    set memdefault2 to member (the memberNum of member memref + 2) of castLib castLibNum
    set memdefault3 to member "Down" of castLib castLibNum
    set memdefault4 to member "Up" of castLib castLibNum
  end if
  set p_list to [#ImageUp: [#comment: "Button Up Image:", #format: #member, #default: memdefault0], #ImageRoll: [#comment: "Button Rollover Image:", #format: #member, #default: memdefault1], #ImageDown: [#comment: "Button Down Image:", #format: #member, #default: memdefault2], #Sonidodown: [#comment: "Sonido pulsado:", #format: #member, #default: memdefault3], #SonidoUp: [#comment: "Sonido Up:", #format: #member, #default: memdefault4]]
  return p_list
end

on getBehaviorDescription
  return "Es un boton de tres estados sin sonido" & RETURN & "En mi opinion es boton debe tener sonido" & RETURN & RETURN & "PARAMETROS:" & RETURN & "ImageUp:   el cast member del boton normal (mascara)" & RETURN & "ImageRoll: el cast member para rollover" & RETURN & "ImageDown: el cast member para cuando se pulsa el boton"
end